home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / ba_v6_1.sda / START ACCT. (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  4KB  |  118 lines
  1. 2 POKE53280,0:POKE53281,0:PRINTCHR$(142)
  2. 4 PRINT"[147]":CLOSE4:OPEN15,8,15,"I0":GOTO30
  3. 6 CLR:OPEN15,8,15:CR$=CHR$(13):QO$=CHR$(34):POKE788,52:POKE792,193
  4. 8 R$=" RETURN [146][158]":Y$="(Y[158]/N[158])":B$="":GOTO58
  5. 10 LL=34:PRINT" >";
  6. 12 OPEN9,0:AN$="":BN$="":POKE204,0
  7. 14 GET#9,BN$:IFBN$=""THEN14
  8. 16 IFBN$=CHR$(13)THENBN$="":CLOSE9:PRINT" ":POKE204,1:POKE207,0:RETURN
  9. 18 IFBN$=""ORBN$="[157]"ORBN$="[145]"ORBN$=""THENGOTO14
  10. 20 IFBN$=""ORBN$="[147]"ORBN$=CHR$(34)THEN14
  11. 22 IFLEN(AN$)=LLTHENPRINT" ":PRINT"";LL;"LETTER LIMIT.":BN$=CHR$(13):GOTO16
  12. 24 IFAN$=""ANDBN$=CHR$(20)THEN14
  13. 26 IFBN$=CHR$(20)THENPRINT" [157][157] [157]";:AN$=LEFT$(AN$,LEN(AN$)-1):GOTO14
  14. 28 AN$=AN$+BN$:PRINTBN$;:GOTO14
  15. 30 OPEN8,8,8,"MO.BILLS 3,S,R"
  16. 32 XT=1:GOSUB158
  17. 34 INPUT#8,PW$
  18. 36 XT=1:GOSUB158
  19. 38 CLOSE8
  20. 40 IFGG=1THENRETURN
  21. 42 E=1:IFPW$="DISABLED"THEN6
  22. 44 PRINT"[147][154]    S T A R T   A N   A C C O U N T   "
  23. 46 PRINT"[158]     PLEASE ENTER YOUR PASSWORD,"
  24. 48 INPUT"[158]        THEN PRESS  RETURN [146][144]";P$
  25. 50 IFP$=PW$THEN6
  26. 52 IF E=3THENSYS64738
  27. 54 PRINTTAB(10)" INVALID PASSWORD.":PRINTTAB(10)"  TYPE CAREFULLY. "
  28. 56 E=E+1:FORT=1TO999:NEXTT:GOTO44
  29. 58 OPEN8,8,8,"ACCT.INFO.,S,R"
  30. 60 GOSUB158
  31. 62 FORX=1TO3:INPUT#8,NA$(X),BN$(X),AC$(X):NEXTX
  32. 64 GOSUB158
  33. 66 CLOSE8
  34. 68 PRINT"[147][154]    S T A R T   A N   A C C O U N T   "
  35. 70 PRINT"[158]CURRENT STATUS OF YOUR BANK ACCOUNTS:":FORX=1TO3
  36. 72 IFX=1THENPRINT"(1) CHECKING ACCOUNT # 1 :":GOTO78
  37. 74 IFX=2THENPRINT"(2) CHECKING ACCOUNT # 2 :":GOTO78
  38. 76 PRINT"(3) SAVINGS ACCOUNT"
  39. 78 PRINTTAB(7)""NA$(X)
  40. 80 IF NA$(X)="INACTIVE"THEN84
  41. 82 PRINTTAB(7)BN$(X):PRINTTAB(7)"ACCT # "AC$(X)
  42. 84 NEXTX
  43. 86 PRINT"[158]ENTER # (1-3[158]) OF ACCOUNT TO ACTIVATE."
  44. 88 PRINT"[158]  (JUST "R$" TO RETURN TO MENU)[145]"
  45. 90 GOSUB174:IFVAL(AN$)>3THEN90
  46. 92 IFAN$=CHR$(13)THEN178
  47. 94 IFVAL(AN$)<=0THEN90
  48. 96 A=VAL(AN$):IFAC$(A)="INACTIVE"THEN110
  49. 98 PRINT"[147][158]THIS ACCOUNT IS ALREADY ACTIVE."
  50. 100 PRINT"DO YOU WISH TO CHANGE THE ACCOUNT"
  51. 102 PRINT"INFORMATION FOR THIS ACCOUNT? "Y$;
  52. 104 GETAN$:IFAN$=""THEN104
  53. 106 IFAN$="N"THENPRINT" "AN$:GOTO186
  54. 108 IFAN$<>"Y"THEN104
  55. 110 IFA=3THEN116
  56. 112 PRINT"[147][154]    ACCT. INFO. CHECKING ACCOUNT #"A"[157]   [146]"
  57. 114 GOTO118
  58. 116 PRINT"[147][154]       ACCT. INFO. SAVINGS ACCOUNT     [146]"
  59. 118 PRINT"[158]WHAT NAME WILL THIS ACCOUNT BE IN?"
  60. 120 GOSUB10:SU$(1)=AN$
  61. 122 PRINT"[158]WHAT'S THE FINANCIAL INSTITUTION'S NAME?"
  62. 124 GOSUB10:SU$(2)=AN$
  63. 126 PRINT"[158]WHAT IS YOUR ACCOUNT NUMBER?"
  64. 128 GOSUB10:SU$(3)=AN$
  65. 130 PRINT"[158]IS ALL THE INFORMATION CORRECT? "Y$;
  66. 132 GOSUB174
  67. 134 IFAN$="N"THEN218
  68. 136 IFAN$<>"Y"THEN132
  69. 138 PRINT" "AN$:ZY=0:IFAC$(A)="INACTIVE"THENZY=1
  70. 140 NA$(A)=SU$(1):BN$(A)=SU$(2):AC$(A)=SU$(3):AI$(1)="S":IFZY=1THEN144
  71. 142 GOTO186
  72. 144 OPEN8,8,8,"@0:ACCT.INFO.,S,W"
  73. 146 GOSUB158
  74. 148 FORX=1TO3
  75. 150 PRINT#8,QO$+NA$(X)+QO$;CR$;QO$+BN$(X)+QO$;CR$;QO$+AC$(X)+QO$
  76. 152 NEXTX:GOSUB158
  77. 154 CLOSE8
  78. 156 PRINT"YOUR ACCOUNT IS NOW READY FOR USE.":FORT=1TO2000:NEXTT:GOTO6
  79. 158 INPUT#15,EN,EM$,ET,ES
  80. 160 IF EN=0 THEN RETURN
  81. 162 IFNF=1THENNF=0:RETURN
  82. 164 PRINT"[147]";B$;B$;" *** ERROR ON DISK *** [146]":PRINTEN;" ";EM$;" ";ET;" ";ES
  83. 166 PRINT" DOS ERROR MESSAGE # "EN
  84. 168 PRINT"[158] (PROGRAM WILL CONTINUE IN A MOMENT)"
  85. 170 CLOSE8:FORT=1TO12345:NEXTT:POKE64,206:IFXT=1THENRUN
  86. 172 GOTO6
  87. 174 GETAN$:IFAN$=""THEN174
  88. 176 RETURN
  89. 178 PRINT"[147]       ***[158] ONE MOMENT PLEASE ***"
  90. 180 PRINT"[144]LOAD"CHR$(34)"MENU";
  91. 182 PRINTCHR$(34)",8";
  92. 184 POKE198,4:POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  93. 186 PRINT"[158]ERASE CURRENT REGISTER DATA? "Y$;
  94. 188 GOSUB174:IFAN$="N"THENAI$(2)="N":PRINT" "AN$:GOTO210
  95. 190 IFAN$<>"Y"THEN188
  96. 192 PRINT" "AN$:AI$(2)="Y":PRINT"[158]ERASE PREVIOUS MONTHS DATA? "Y$;
  97. 194 GOSUB174:IFAN$="N"THENAI$(3)="N":GOTO200
  98. 196 IFAN$<>"Y"THEN194
  99. 198 AI$(3)="Y"
  100. 200 PRINT" "AN$:IFAI$(2)<>"Y"THEN210
  101. 202 ER$=STR$(A)
  102. 204 OPEN8,8,8,"@0:REGISTER"+ER$+",S,W":GOSUB158
  103. 206 PRINT#8,"0";CR$;"0";CR$;"0";CR$;"0"
  104. 208 GOSUB158:PRINT#8:CLOSE8
  105. 210 IFAI$(3)<>"Y"THEN214
  106. 212 AI$(4)="S0:ACCT."+ER$+"-*":PRINT#15,AI$(4)
  107. 214 AI$(2)="":AI$(3)="":IFAI$(1)="S"THENAI$(1)="":GOTO144
  108. 216 GOTO156
  109. 218 PRINT" "AN$:PRINT"[158]CHANGE WHICH LINE (1[158]-3[158])?";
  110. 220 GOSUB174
  111. 222 C=VAL(AN$):IFC>3ORC<1THEN220
  112. 224 PRINT" "AN$"":GOSUB10:SU$(C)=AN$
  113. 226 PRINT"[158]CHANGE ANOTHER LINE? "Y$;
  114. 228 GOSUB174
  115. 230 IFAN$="Y"THEN218
  116. 232 IFAN$="N"THEN138
  117. 234 GOTO228
  118.